/* t.c */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "kernel.h"
#include "swis.h"

/***************************************************************************/

int main()

{
  double x, y;
  unsigned *p;
  unsigned q[2];
  FILE *f;

  x = 10000000000.0/3.0;

  p = (unsigned*)&x;
  p[1]--;
  printf("x = %.40lf  &%08x %08x\n", x, p[0], p[1]);

  f = fopen("tt", "w");
  fprintf(f, "%.40lf  %08x  %08x\n", x, p[0], p[1]);
  fclose(f);

  f = fopen("tt", "r");
  fscanf(f, " %lf %x %x", &y, q+0, q+1);
  fclose(f);

  p = (unsigned*)&y;
  printf("x = %.40lf  &%08x %08x\n", y, p[0], p[1]);

  y = *((double*)q);
  printf("x = %.40lf  &%08x %08x\n", y, q[0], q[1]);

  return 0;
}

/***************************************************************************/
